<%@ LANGUAGE="VBSCRIPT" %> Class Descriptions
 Class Descriptions 
  Classes and their Majors
<% fHideNavBar = False fHideNumber = False fHideRequery = False fHideRule = False stQueryString = "" fEmptyRecordset = False fFirstPass = True fNeedRecordset = False fNoRecordset = False tBarAlignment = "Left" tHeaderName = "ClassMajors" tPageSize = 10 tPagingMove = "" tRangeType = "Table" tRecordsProcessed = 0 tPrevAbsolutePage = 0 intCurPos = 0 intNewPos = 0 fSupportsBookmarks = True fMoveAbsolute = False If Not IsEmpty(Request("ClassMajors_PagingMove")) Then tPagingMove = Trim(Request("ClassMajors_PagingMove")) End If If IsEmpty(Session("ClassMajors_Recordset")) Then fNeedRecordset = True Else If Session("ClassMajors_Recordset") Is Nothing Then fNeedRecordset = True Else Set ClassMajors = Session("ClassMajors_Recordset") End If End If If fNeedRecordset Then Set StateU = Server.CreateObject("ADODB.Connection") StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout") StateU.CommandTimeout = Session("StateU_CommandTimeout") StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set ClassMajors = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT Classes.ClassID, Classes.Title, Majors.MajorID, Majors.Description FROM Classes INNER JOIN Majors ON Classes.MajorID = Majors.MajorID ORDER BY Classes.Title" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = StateU ClassMajors.Open cmdTemp, , 1, 1 End If On Error Resume Next If ClassMajors.BOF And ClassMajors.EOF Then fEmptyRecordset = True On Error Goto 0 If Err Then fEmptyRecordset = True ClassMajors.PageSize = tPageSize fSupportsBookmarks = ClassMajors.Supports(8192) If Not IsEmpty(Session("ClassMajors_Filter")) And Not fEmptyRecordset Then ClassMajors.Filter = Session("ClassMajors_Filter") If ClassMajors.BOF And ClassMajors.EOF Then fEmptyRecordset = True End If If IsEmpty(Session("ClassMajors_PageSize")) Then Session("ClassMajors_PageSize") = tPageSize If IsEmpty(Session("ClassMajors_AbsolutePage")) Then Session("ClassMajors_AbsolutePage") = 1 If Session("ClassMajors_PageSize") <> tPageSize Then tCurRec = ((Session("ClassMajors_AbsolutePage") - 1) * Session("ClassMajors_PageSize")) + 1 tNewPage = Int(tCurRec / tPageSize) If tCurRec Mod tPageSize <> 0 Then tNewPage = tNewPage + 1 End If If tNewPage = 0 Then tNewPage = 1 Session("ClassMajors_PageSize") = tPageSize Session("ClassMajors_AbsolutePage") = tNewPage End If If fEmptyRecordset Then fHideNavBar = True fHideRule = True Else tPrevAbsolutePage = Session("ClassMajors_AbsolutePage") Select Case tPagingMove Case "" fMoveAbsolute = True Case "Requery" ClassMajors.Requery fMoveAbsolute = True Case "<<" Session("ClassMajors_AbsolutePage") = 1 Case "<" If Session("ClassMajors_AbsolutePage") > 1 Then Session("ClassMajors_AbsolutePage") = Session("ClassMajors_AbsolutePage") - 1 End If Case ">" If Not ClassMajors.EOF Then Session("ClassMajors_AbsolutePage") = Session("ClassMajors_AbsolutePage") + 1 End If Case ">>" If fSupportsBookmarks Then Session("ClassMajors_AbsolutePage") = ClassMajors.PageCount End If End Select Do If fSupportsBookmarks Then ClassMajors.AbsolutePage = Session("ClassMajors_AbsolutePage") Else If fNeedRecordset Or fMoveAbsolute Or ClassMajors.EOF Then ClassMajors.MoveFirst ClassMajors.Move (Session("ClassMajors_AbsolutePage") - 1) * tPageSize Else intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize intNewPos = ((Session("ClassMajors_AbsolutePage") - 1) * tPageSize) + 1 ClassMajors.Move intNewPos - intCurPos End If If ClassMajors.BOF Then ClassMajors.MoveNext End If If Not ClassMajors.EOF Then Exit Do Session("ClassMajors_AbsolutePage") = Session("ClassMajors_AbsolutePage") - 1 Loop End If Do If fEmptyRecordset Then Exit Do If tRecordsProcessed = tPageSize Then Exit Do If Not fFirstPass Then ClassMajors.MoveNext Else fFirstPass = False End If If ClassMajors.EOF Then Exit Do tRecordsProcessed = tRecordsProcessed + 1 %> <% Loop If tRangeType = "Table" Then Response.Write "
Class ID Title Major ID Description
<%=ClassMajors("ClassID")%> <%=ClassMajors("Title")%> <%=ClassMajors("MajorID")%> <%=ClassMajors("Description")%>
" If tPageSize > 0 Then If Not fHideRule Then Response.Write "
" If Not fHideNavBar Then %>

>

METHOD="POST"> " VALUE=" << "> " VALUE=" < "> " VALUE=" > "> <% If fSupportsBookmarks Then %> " VALUE=" >> "> <% End If %> <% If Not fHideRequery Then %> " VALUE=" Requery "> <% End If %>

<% If Not fHideNumber Then If tPageSize > 1 Then Response.Write "Page: " & Session(tHeaderName & "_AbsolutePage") & "" Else Response.Write "Record: " & Session(tHeaderName & "_AbsolutePage") & "" End If End If %>
<% End If End If %>